home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene 96
/
Scene 96 International Edition (Zyklop Software) (Disc 1) (1997).iso
/
emulator
/
c64s
/
9402.d64
/
3d-scroll.src
< prev
next >
Wrap
Text File
|
1996-02-18
|
3KB
|
191 lines
*=$8000
;
; **** EXTERNE SPRUENGE ****
;
EEA31 =$EA31
EEA81 =$EA81
;
; **** FELDER ****
;
F2000 =$2000
F2080 =$2080
F8128 =$8128
F816C =$816C
F816D =$816D
F81B1 =$81B1
F81B2 =$81B2
;
; **** ABSOLUTE ADRESSEN ****
;
AB0 =$B0
AB1 =$B1
AFB =$FB
AFD =$FD
AFE =$FE
A0314 =$0314
A0315 =$0315
A07F8 =$07F8
AD000 =$D000
AD001 =$D001
AD010 =$D010
AD011 =$D011
AD012 =$D012
AD015 =$D015
AD019 =$D019
AD01A =$D01A
AD01B =$D01B
AD01C =$D01C
AD020 =$D020
AD021 =$D021
AD025 =$D025
AD026 =$D026
AD027 =$D027
ADC04 =$DC04
ADC05 =$DC05
ADC0E =$DC0E
;
; **** POINTER ****
;
P04 =$04
;
; **** PROGRAMM ****
;
;
SEI
LDA AD01B
ORA #$01
STA AD01B
LDY #$00
STY AD020
STY AD021
STY AFB
INY
STY ADC0E
LDA #$30
I8019 STA AFE
LDA AD012
EOR ADC04
STA F8127,Y
ORA ADC05
AND #$01
STA F816C,Y
LDA AFE
STA F81B1,Y
CLC
ADC #$03
INY
CPY #$46
BNE I8019
JSR I8106
LDY #$00
TYA
STA ADC0E
I8042 STA F2000,Y
DEY
BNE I8042
LDX #$00
I804A LDA F8121,Y
STA F2000,X
LDA #$01
STA F2080,X
TXA
CLC
ADC #$09
TAX
INY
CPY #$07
BNE I804A
INY
STY AB1
LDA #$1B
STA AD011
LDA #$01
STA AD01A
LDA #$7C
STA A0314
LDA #$80
STA A0315
LDA #$45
STA AB0
CLI
RTS
INC AD019
LDA AB0
CMP #$46
BCS I80B9
I8085 LDA AFE
STA A07F8
LDA AD015
ORA #$01
STA AD015
LDY AFB
LDA F8128,Y
STA AD000
LDA AD010
AND #$FE
ORA F816D,Y
STA AD010
LDX F81B2,Y
STX AD012
DEX
STX AD001
INC AFB
INY
CPY AB0
BEQ I80C0
JMP EEA81
I80B9 LDA #$45
STA AB0
JMP I8085
I80C0 INC A07F8
LDA AB1
CMP #$08
BNE I80CF
JSR I8106
JMP I80DB
I80CF LDA AD01C
AND #$FE
STA AD01C
LDA #$82
STA AFE
I80DB LDY #$00
STY AFB
LDX #$01
I80E1 TXA
CLC
ADC F8128,Y
BCC I80F4
STA AFD
LDA F816D,Y
EOR #$01
STA F816D,Y
LDA AFD
I80F4 STA F8128,Y
INX
CPX AB1
BNE I80FE
LDX #$01
I80FE INY
CPY AB0
BNE I80E1
JMP EEA31
I8106 LDA AD01C
ORA #$01
STA AD01C
LDA #$0F
STA AD027
LDY #$0C
STY AD026
DEY
STY AD025
LDA #$80
STA AFE
RTS
F8121 ORA (P04,X)
RTI
;
.BYTE $03,$30,$80;"0Ç
F8127 .BYTE $08